home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / ALGIN5 < prev    next >
Text File  |  1987-02-21  |  711b  |  55 lines
  1. order x y
  2. np=1
  3. def gen
  4. x
  5. b1 x^2
  6. b2 x^3
  7. b3 x^4
  8. b4 x^5
  9.  
  10. def rev
  11. y
  12. c1 y^2
  13. c2 y^3
  14. c3 y^4
  15. c4 y^5
  16.  
  17. def one = 1
  18. def two = 2
  19. def zero= 0
  20. def yy  = y
  21. def dup = rev / yy
  22. com dup = dup - one
  23. maxe = 6
  24. sub gen for y in rev
  25. def cnt = 0
  26. def six = 6
  27. def ex  = x
  28. def rrev= y
  29. def yp  = y
  30.  
  31. lab loop
  32. def tem = rev
  33. sub q for x in tem
  34. sub 0 for q in tem
  35. com rev = rev - tem
  36. def rev = rev / ex
  37. com cnt = cnt + one
  38. if cnt.le.two goto loop
  39. def yp = yp * yy
  40. def dup = dup / yy
  41. def cc  = dup
  42. sub 0 for y in cc
  43. com dup = dup -cc
  44.  
  45. sub zero for cc in tem
  46. def tt  = -tem
  47. sub tt for cc in rev
  48. def rr  = -tem * yp
  49. com rrev= rrev + rr
  50. np = 2
  51. pri rr
  52. np = 0
  53. if cnt.lt.six  goto loop
  54. end input
  55.